home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / shareware / applications / jcgraph / rexx / windowpre1.rex < prev    next >
OS/2 REXX Batch file  |  1994-11-17  |  1KB  |  53 lines
  1. /* WindowPre1.rex */
  2. /* -------------- */
  3. /* Description: Set window size and position according to value previously */
  4. /*              saved with 'Set1'.                                         */
  5.  
  6. options results
  7.  
  8. address 'JCGRAPH'
  9.  
  10. if open('WinDflt','T:WinDflt1','R') then do
  11.  
  12.   'ActivateWindow Output'
  13.   here=readln('WinDflt')
  14.   SpcPos = pos(" ",here)
  15.   MyX = left(here,SpcPos - 1)
  16.   MyY = substr(here,SpcPos + 1)
  17.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  18.  
  19.   here=readln('WinDflt')
  20.   SpcPos = pos(" ",here)
  21.   MyX = left(here,SpcPos - 1)
  22.   MyY = substr(here,SpcPos + 1)
  23.   'SizeWindow Width=' || MyX 'Height=' || MyY
  24.  
  25.   'ActivateWindow Preview'
  26.   here=readln('WinDflt')
  27.   SpcPos = pos(" ",here)
  28.   MyX = left(here,SpcPos - 1)
  29.   MyY = substr(here,SpcPos + 1)
  30.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  31.  
  32.   here=readln('WinDflt')
  33.   SpcPos = pos(" ",here)
  34.   MyX = left(here,SpcPos - 1)
  35.   MyY = substr(here,SpcPos + 1)
  36.   'SizeWindow Width=' || MyX 'Height=' || MyY
  37.  
  38.   'ActivateWindow Interface'
  39.   here=readln('WinDflt')
  40.   SpcPos = pos(" ",here)
  41.   MyX = left(here,SpcPos - 1)
  42.   MyY = substr(here,SpcPos + 1)
  43.   'MoveWindow LeftEdge=' || MyX 'TopEdge=' || MyY
  44.  
  45.   here=readln('WinDflt')
  46.   SpcPos = pos(" ",here)
  47.   MyX = left(here,SpcPos - 1)
  48.   MyY = substr(here,SpcPos + 1)
  49.   'SizeWindow Width=' || MyX 'Height=' || MyY
  50.  
  51.  
  52. end
  53.